library(tidyverse)
library(DeclareDesign)
library(rdss)

sims <- 2000
bootstrap_sims <- FALSE

source("code/declarations/declaration_11.2.R")

diagnosis_11.2 <-
  declaration_11.2 |>
  redesign(N = c(100, 500, 1000)) |>
  diagnose_designs(sims = sims, bootstrap_sims = bootstrap_sims)

write_rds(diagnosis_11.2, file = "diagnosis_objects/diagnosis_11.2.rds")